<script>on mouseUpgo to card id 3916 of stack "Home"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>38</top>
<right>61</right>
<bottom>83</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>-1</titleWidth>
<icon>-15840</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Columnize</name>
<script>on mouseUp--Special Thanks to:--S.Koren/COM~LINK for his very helpful COLUMNIZER XCMDput 0 into nmbrask "What ‘Character Delimiter’ shall I look for?"if it is empty then exit mouseUpput it into deductHoldif fld "deductibles" is not empty thenanswer "Do you want me to put this list on a new card " &¬"or Delete the contents of this list?" with "Delete" or "New Card"if it is "Delete" then put empty into fld "deductibles"if it is "New Card" then doMenu "New Card"end ifrepeat with x=1 to the number of lines in fld "describe" of cd 1 of bg "budget"set cursor to busyif charToNum(char 1 of line x of fld "describe" of cd 1 of bg¬"budget") ≠ charToNum(deductHold) thennext repeatelseput (char 1 to 15 of line x of fld "describe" of cd 1 of bg "budget") into holdDescput empty into char 1 of holdDescput (line x of fld "debit" of cd 1 of bg "budget") into holdDebput "Ck" & " " && (line x of fld "ck#" of cd 1 of bg "budget") &&¬"\" && (line x of fld "date" of cd 1 of bg "budget") && "\" into holdItput holdDesc && "\" after holdItput holdDeb after holdItColumnize 2,1,18,holdItput the result after fld "deductibles"put (nmbr + holdDeb) into nmbrend ifend repeatif fld "deductibles" is empty thenanswer "I couldn’t find any lines beginning with that " & return &¬"particular ‘Character Delimiter’." & return & "Make sure you gave me the correct character!" with "OK"elseput "__________________________________________________" after¬last line of fld "deductibles"-- repeat with x =1 to (number of lines in fld "deductibles" -1)-- put the value of ((last word in line x of fld "deductibles") + nmbr) into nmbr-- end repeatset numberformat to "0.00"put (1* nmbr) into nmbrput return & "Total deductibles listed: " & nmbr & return after¬last line of fld "deductibles"end ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>119</left>
<top>25</top>
<right>369</right>
<bottom>50</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>EstroFont</font>
<textSize>18</textSize>
<textStyle>condense</textStyle>
<textStyle>shadow</textStyle>
<textHeight>24</textHeight>
<name>Name</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>83</top>
<right>58</right>
<bottom>121</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>141</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpshow fld "help"wait until the mouseClickhide fld "help"end mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>64</left>
<top>53</top>
<right>443</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Hobo</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>help</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>203</left>
<top>316</top>
<right>301</right>
<bottom>338</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Hobo</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Card</name>
<script>on mouseUpanswer "Are you SURE you want to DELETE this card?" with "Cancel" or "OK"if it is empty then exit mouseUpdomenu "Delete Card"end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>76</top>
<right>481</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8349</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpvisual effect stretch from center very fastgo to prev cardend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>80</top>
<right>500</right>
<bottom>105</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>8350</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpvisual effect shrink to center very fastgo to next cardend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>117</top>
<right>56</right>
<bottom>160</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24877</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>print report</name>
<script>on mouseUpopen report printing with dialogend mouseUp</script>
</part>
<name>tax deducts</name>
<script>on openCardif the short name of this cd is "deducts" then exit openCardput line 1 of fld "name" of previous cd into fld "name" of this cdput the value of (last char of fld "name" of previous cd) + 1¬into last char of fld "name" of this cdend openCard</script>